Define CharList
 ( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
   'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f',
   'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v',
   'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '!', ':');

Define WidthList
 (   8,   8,   8,   8,   7,   6,   8,   8,   4,   4,   8,   7,  10,   8,   8,   7,
     8,   8,   6,   7,   8,   8,  11,   8,   8,   7,   5,   6,   5,   6,   5,   4,
     5,   6,   3,   3,   6,   3,   9,   6,   6,   6,   6,   4,   4,   3,   6,   6,
     8,   6,   6,   5,   6,   6,   6,   6,   6,   6,   6,   6,   6,   6,   4,   3);

Define RectList
 ( (   0,  0,  9, 13), (  10,  0,  8, 13), (  19,  0,  8, 13), (  28,  0,  8, 13),
   (  37,  0,  7, 13), (  45,  0,  7, 13), (  53,  0,  9, 13), (  63,  0,  8, 13),
   (  72,  0,  4, 13), (  77,  0,  5, 13), (  83,  0,  9, 13), (  93,  0,  7, 13),
   ( 101,  0, 10, 13), ( 112,  0,  8, 13), ( 121,  0,  8, 13), ( 130,  0,  7, 13),
   ( 138,  0,  8, 13), ( 147,  0,  8, 13), ( 156,  0,  6, 13), ( 163,  0,  7, 13),
   ( 171,  0,  8, 13), ( 180,  0,  8, 13), ( 189,  0, 11, 13), ( 201,  0,  9, 13),
   ( 211,  0,  9, 13), ( 221,  0,  7, 13), ( 229,  0,  6, 13), ( 236,  0,  6, 13),
   ( 243,  0,  5, 13), ( 249,  0,  6, 13), ( 256,  0,  5, 13), ( 262,  0,  6, 13),
   ( 269,  0,  6, 13), ( 276,  0,  6, 13), ( 283,  0,  3, 13), ( 287,  0,  3, 13),
   ( 291,  0,  6, 13), ( 298,  0,  3, 13), ( 302,  0,  9, 13), ( 312,  0,  6, 13),
   ( 319,  0,  6, 13), ( 326,  0,  6, 13), ( 333,  0,  6, 13), ( 340,  0,  4, 13),
   ( 345,  0,  4, 13), ( 350,  0,  4, 13), ( 355,  0,  6, 13), ( 362,  0,  6, 13),
   ( 369,  0,  9, 13), ( 379,  0,  6, 13), ( 386,  0,  6, 13), ( 393,  0,  5, 13),
   ( 399,  0,  6, 13), ( 406,  0,  4, 13), ( 411,  0,  6, 13), ( 418,  0,  5, 13),
   ( 424,  0,  6, 13), ( 431,  0,  5, 13), ( 437,  0,  6, 13), ( 444,  0,  6, 13),
   ( 451,  0,  6, 13), ( 458,  0,  6, 13), ( 465,  0,  2, 13), ( 468,  0,  1, 13));

Define OffsetList
 ( ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 0, 0), (-1, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 1, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 1, 0), ( 1, 0));

Define KerningPairs
 ("11","AT","AV","AW","AY","Av","Aw","Ay","FA","LT","LV","LW","LY","Ly","PA","RT",
  "RV","RW","RY","Ry","T:","TA","Ta","Tc","Te","Ti","To","Tr","Ts","Tu","Tw","Ty",
  "V:","VA","Va","Ve","Vi","Vo","Vr","Vu","Vy","W:","WA","Wa","We","Wi","Wo","Wr",
  "Wu","Wy","Y:","YA","Ya","Ye","Yi","Yo","Yp","Yq","Yu","Yv");

Define KerningValues

 (   0,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,   0,  -1,   0,

    -1,   0,   0,   0,   0,  -1,  -1,  -1,  -1,   0,  -1,   0,  -1,   0,  -1,  -1,

    -1,  -1,  -1,  -1,   0,  -1,   0,   0,  -1,   0,  -1,  -1,  -1,   0,  -1,   0,

     0,   0,  -1,  -1,  -1,  -1,   0,  -1,  -1,  -1,  -1,  -1);

CreateLayer          Main;
LayerSetImage        Main '../images/statusbarfont';
LayerSetAscent       Main 10;
LayerSetCharWidths   Main CharList WidthList;
LayerSetCharWidths   Main (' ') (6);
LayerSetKerningPairs Main KerningPairs KerningValues;
LayerSetImageMap     Main CharList RectList;
LayerSetCharOffsets  Main CharList OffsetList;
LayerSetPointSize    Main 9;

SetDefaultPointSize  9;
